home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Garbo
/
Garbo.cdr
/
mac
/
hypercrd
/
hc1_2_x
/
smrtslds.sit
/
SmartSlides 1.1 Demo
/
card_7722.txt
< prev
next >
Wrap
Text File
|
1990-06-12
|
6KB
|
305 lines
-- card: 7722 from stack: in.1 Demo
-- bmap block id: 8059
-- flags: 0000
-- background id: 2635
-- name:
-- part 1 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=0 top=19 right=50 bottom=12
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Delay
----- HyperTalk script -----
on mouseUp
if the optionKey is down then GiveHelp "Delay "
else pass mouseUp
end mouseUp
on mousedown
if the optionKey is up then pass mouseDown
end mouseDown
-- part 2 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=0 top=55 right=86 bottom=12
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Beep
----- HyperTalk script -----
on mouseUp
if the optionKey is down then GiveHelp "Beep "
else pass mouseUp
end mouseUp
on mousedown
if the optionKey is up then pass mouseDown
end mouseDown
-- part 3 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=0 top=89 right=120 bottom=12
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: LockScreen
----- HyperTalk script -----
on mouseUp
if the optionKey is down then GiveHelp "LockScreen "
else pass mouseUp
end mouseUp
on mousedown
if the optionKey is up then pass mouseDown
end mouseDown
-- part 4 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=0 top=123 right=154 bottom=12
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Opener
----- HyperTalk script -----
on mouseUp
if the optionKey is down then GiveHelp "On OpenCard "
else pass mouseUp
end mouseUp
on mousedown
if the optionKey is up then pass mouseDown
end mouseDown
-- part 5 (field)
-- low flags: 01
-- high flags: 2002
-- rect: left=194 top=40 right=74 bottom=314
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 91
-- text size: 18
-- style flags: 0
-- line height: 24
-- part name: Rectangle
-- part 9 (field)
-- low flags: 01
-- high flags: 2002
-- rect: left=289 top=118 right=173 bottom=453
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 91
-- text size: 18
-- style flags: 0
-- line height: 24
-- part name: Rectangle
-- part 10 (field)
-- low flags: 01
-- high flags: 2002
-- rect: left=56 top=118 right=173 bottom=220
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 91
-- text size: 18
-- style flags: 0
-- line height: 24
-- part name: Rectangle
-- part 11 (field)
-- low flags: 01
-- high flags: 2002
-- rect: left=170 top=222 right=277 bottom=334
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 91
-- text size: 18
-- style flags: 0
-- line height: 24
-- part name: Rectangle
-- part 13 (field)
-- low flags: 01
-- high flags: 2002
-- rect: left=345 top=282 right=305 bottom=486
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Rectangle
-- part 14 (field)
-- low flags: 81
-- high flags: 2004
-- rect: left=244 top=53 right=275 bottom=486
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: PopUp 15
-- part 15 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=345 top=282 right=305 bottom=486
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: PopItUp
----- HyperTalk script -----
on mouseUp
if the optionKey is down then
GiveHelp "PopUp "
else pass mouseUp
end mouseUp
on mousedown
if the optionKey is up then pass mouseDown
end mouseDown
-- part contents for background part 283
----- text -----
8
-- part contents for background part 33
----- text -----
scroll left slowly to card
scroll right slowly to card
-- part contents for card part 5
----- text -----
CHARTS
-- part contents for background part 100
----- text -----
-- part contents for background part 142
----- text -----
Opener
Rectangle
Rectangle
Rectangle
PopItUp
-- part contents for card part 9
----- text -----
CLASSIFICATIONCHARTS
-- part contents for card part 10
----- text -----
ORGANIZATION
CHARTS
-- part contents for card part 11
----- text -----
FLOW
CHARTS
-- part contents for card part 13
----- text -----
About This Slide…
-- part contents for background part 125
----- text -----
14
-- part contents for card part 14
----- text -----
ΓÇó Create Rectangle fields & text
• Use BORDER FIELD… on top field
• Use SHADOW FIELD… on other
three chart fields
• Use CONNECT FIELDS…
ΓÇó top to left
ΓÇó again top to right
ΓÇó again top to lower center
• Use PROTECT VISIBLE…
ΓÇó Create PopUp, change font, size
ΓÇó Put PopUp's button over field
"About This Slide…"
ΓÇó Reset slide & make next slide